Holt Researcher: American History/Holt Researcher: American History.iso/pc/modules/grph.dxr/00022_close box.ls

Text File | 2000-01-28 | 844 b | 36 lines

property ancestor, pMIAW
global gIsRolloverTextOn

on new me, buttonName, castName, theChannel, theStageLoc, theBalloonChannel, theBalloonLoc, descendant
  if objectp(descendant) then
    ancestor = new(script("button with balloon"), buttonName, castName, theChannel, theStageLoc, theBalloonChannel, theBalloonLoc, descendant)
  else
    ancestor = new(script("button with balloon"), buttonName, castName, theChannel, theStageLoc, theBalloonChannel, theBalloonLoc, me)
  end if
  return me
end

on setMIAW me, miaw
  pMIAW = miaw
  return me
end

on performFunction me
  closeMe(pMIAW)
  return me
end

on performRolloverFunction me
  if gIsRolloverTextOn then
    performRolloverFunction(ancestor)
  end if
  return me
end

on performRolloffFunction me
  if gIsRolloverTextOn then
    performRolloffFunction(ancestor)
  end if
  return me
end